home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / TMCM Software and Labs.sit / Software for TMCM 7_95 / Files for Lab 14 / Houses < prev    next >
Text File  |  1995-03-11  |  714b  |  28 lines
  1. ; this file defines a "house" object, then uses it to draw
  2. ; a small "village" consisting of three houses of different sizes.
  3. ; First, a window object is defined.  Windows are then used as
  4. ; components in houses.
  5.  
  6. define window [ 
  7.    square
  8.    line
  9.    line rotate 90
  10. ]
  11.  
  12. define house [
  13.    square ytranslate 0.5 scale 6.5,8
  14.    polygon -4,8 0,12 4,8
  15.    window scale 1.5 translate -2,6
  16.    window scale 1.5 translate 0,6
  17.    window scale 1.5 translate 2,6
  18.    window scale 2.5,2 translate -1.5,2.5
  19.    square ytranslate 0.5 scale 1.5,3 xtranslate 1.5
  20. ]
  21.  
  22.  
  23. house scale -0.3,0.2 translate -6,0
  24.     ; note that a negative scale factor gives a "reversed" house
  25.  
  26. house scale 0.5 translate 0,-1
  27.  
  28. house scale 0.4,0.2 translate 5,3